home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue26 / tiptrix / LISTING5.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1997-09-17  |  511 b   |  20 lines
  1. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  2.   Shift: TShiftState);
  3. begin
  4.   case Key of
  5.   VK_DOWN,
  6.   VK_RETURN:
  7.     // Enter OR Arrow Down - same as Tab
  8.     begin
  9.       Keybd_Event(VK_TAB,0,0,0);
  10.     end;
  11.   VK_UP:
  12.     // on receiving ArrowUp, simulate Shift-Tab
  13.     begin
  14.       Keybd_Event(VK_SHIFT,0,0,0);               // simulate Shift key pressed
  15.       Keybd_Event(VK_TAB,0,0,0);
  16.       Keybd_Event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); // Shift key released
  17.     end;
  18.   end;
  19. end;
  20.